Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  873 1829 (N62W27 L= 69)   477     59        1 ( 849/1804- 895/1853)   6.3 W23-W32 N59-N64
      2 1224 1718 (N40W40 L= 82)   305     43        0 (1201/1690-1248/1745) -90.0 W39-W42 N37-N41
      3  677 1711 (N60E03 L= 39)   436    113        0 ( 641/1676- 726/1732)   0.0 E08-W02 N58-N62
      4 1516 1707 (N29W61 L=103)   658     59        2 (1488/1684-1548/1729) -63.4 W57-W64 N26-N30
      5 1424 1532 (N23W41 L= 82)  1374    348        2 (1252/1489-1564/1587) -39.5 W32-W49 N16-N31
      6 1856 1250 (S06W63 L=105)  4778    501       13 (1722/1084-1953/1464) -78.7 W54-W79 S17-N08
      7 1084 1194 (N14W08 L= 49)  1242    483        8 ( 955/1089-1222/1275) -58.0 W01-W14 N05-N21
      8  470 1217 (N31E31 L= 11)   533    161        0 ( 382/1198- 534/1239) -17.1 E38-E25 N29-N34
      9 1248 1149 (N07W16 L= 57)   283     80        1 (1205/1132-1276/1177) -33.7 W13-W17 N06-N08
     10  897 1141 (N16E04 L= 37)   439    171        0 ( 812/1112- 972/1157) -41.2 E08-W00 N12-N19
     11  390 1113 (N27E39 L=  3)   505    108        2 ( 341/1094- 458/1131) -21.8 E43-E33 N24-N28
     12  212  880 (N16E60 L=341)   662    111        3 ( 193/ 821- 227/ 935)  66.8 E62-E58 N12-N19
     13 1160  872 (S05W03 L= 45)   395     48        1 (1127/ 841-1188/ 897)   0.0 W01-W05 S06-S03
     14  918  791 (S04E12 L= 30)   485    174        1 ( 853/ 747-1002/ 842)   5.7 E16-E06 S04-S02
     15  906  662 (S11E16 L= 25)   385    159        0 ( 865/ 585- 938/ 723) -90.0 E17-E15 S15-S06
     16  460  392 (S17E59 L=343)  2311    292        3 ( 433/ 273- 487/ 530)  33.7 E76-E48 S26-S08
     17  736  458 (S19E34 L=  8)  1043    294        2 ( 634/ 416- 854/ 520) -48.0 E38-E27 S24-S13
     18 1521  481 (S41W18 L= 59)   839     88        2 (1477/ 446-1565/ 515)   0.0 W13-W21 S43-S38
     19 1133  250 (S45E20 L= 21)  1718    347        3 (1005/ 159-1285/ 332)   5.5 E36-E04 S50-S42
  

    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