Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1266 1708 (N46W37 L=234)   522     88        3 (1227/1676-1321/1733) -29.7 W33-W41 N42-N47
      2  748 1607 (N48E12 L=185)  1792    468        5 ( 562/1528- 943/1655) -20.4 E32-W03 N39-N53
      3 1235 1547 (N35W25 L=222)  1784    406        6 (1034/1493-1394/1574)  -8.1 W09-W37 N31-N38
      4 1465 1398 (N21W36 L=233)   387    101        2 (1444/1363-1492/1441)  53.1 W33-W37 N19-N23
      5  708 1423 (N36E16 L=181)   360     87        0 ( 664/1409- 752/1437) -15.9 E19-E12 N34-N36
      6  506 1229 (N25E33 L=164)   293    152        1 ( 452/1217- 591/1243)  -5.2 E36-E25 N24-N26
      7  861 1169 (N17E08 L=189)   219    116        0 ( 807/1129- 894/1187) -38.7 E11-E06 N14-N18
      8  404 1128 (N20E41 L=156)   246     99        4 ( 377/1109- 442/1157)   0.0 E43-E37 N18-N21
      9  714 1027 (N11E19 L=178)   588    173        1 ( 662/ 985- 800/1064)  18.4 E22-E13 N08-N12
     10 1475  879 (S10W26 L=223)   475    143        1 (1451/ 803-1499/ 938)  60.3 W23-W28 S13-S06
     11 1284  912 (S04W14 L=211)   243     70        0 (1249/ 895-1324/ 927) -21.8 W11-W16 S05-S03
     12 1356  822 (S11W17 L=214)   619    252        4 (1303/ 737-1388/ 926)  74.7 W13-W19 S15-S04
     13  230  862 (N05E60 L=137)  1026    127        4 ( 184/ 821- 280/ 909) -32.0 E65-E54 N02-N07
     14  577  818 (S00E31 L=166)   528    157        3 ( 495/ 780- 637/ 838) -12.5 E36-E27 S03-N01
     15 1274  779 (S12W12 L=208)   463    137        2 (1215/ 744-1328/ 826)   7.1 W07-W15 S13-S09
     16 1709  771 (S21W44 L=241)   398     75        1 (1669/ 742-1739/ 791)  18.4 W40-W46 S22-S20
     17  614  672 (S10E31 L=165)   665    171        5 ( 574/ 627- 680/ 753) -50.2 E34-E26 S12-S04
     18 1463  679 (S22W23 L=220)  1218    226        5 (1388/ 614-1546/ 753)  18.4 W17-W29 S25-S17
     19 1733  694 (S27W47 L=244)   396    102        2 (1702/ 661-1762/ 739)  38.7 W43-W49 S29-S24
     20  557  689 (S08E35 L=162)   253     87        2 ( 525/ 666- 584/ 724)  11.3 E37-E32 S09-S05
     21 1515  635 (S26W27 L=224)   359     77        1 (1488/ 601-1545/ 667)  36.9 W25-W29 S28-S24
     22  583  551 (S17E37 L=160)   332     89        1 ( 550/ 524- 623/ 580) -53.1 E39-E34 S19-S15
     23  879  425 (S30E20 L=176)   528     86        3 ( 850/ 387- 912/ 469)  50.2 E23-E17 S32-S26
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y