Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  468 1406 (N41E28 L=204)   265     51        0 ( 440/1383- 494/1426) -45.0 E31-E26 N39-N43
      2  982 1311 (N22W05 L=238)   326    199        0 ( 894/1281-1076/1343) -45.0 W00-W09 N17-N25
      3 1493 1276 (N06W34 L=266)   595    114        2 (1438/1254-1560/1294) -26.6 W30-W38 N03-N08
      4 1055 1197 (N13W06 L=238)   191     56        0 (1027/1175-1083/1216)   0.0 W04-W08 N12-N14
      5 1306 1128 (N03W18 L=250)   590    143        1 (1253/1077-1370/1177)  12.5 W14-W23 N01-N04
      6  787 1003 (N10E14 L=219)   740    189        4 ( 743/ 933- 855/1063)  18.4 E17-E08 N05-N12
      7 1939 1000 (S23W68 L=300)  1002    111        1 (1904/ 959-1968/1050)  45.0 W61-W76 S24-S19
      8 1452  961 (S10W22 L=255)   360    124        0 (1420/ 907-1498/1023) -82.9 W21-W24 S13-S05
      9  156  922 (N19E66 L=166)   703     89        2 ( 130/ 878- 180/ 967)  33.7 E70-E61 N16-N21
     10 1707  693 (S34W37 L=269)  2368    461        5 (1548/ 569-1863/ 851)  10.0 W21-W55 S39-S27
     11  466  656 (S02E43 L=189)  1241    234        3 ( 387/ 524- 524/ 798)  86.6 E47-E41 S10-N07
     12  981  784 (S07E08 L=224)   205     99        0 ( 927/ 765-1018/ 797) -38.7 E11-E06 S09-S05
     13 1093  527 (S25E10 L=222)  1522    552        2 ( 980/ 301-1203/ 761)  39.4 E26-W02 S37-S13
     14  860  656 (S11E19 L=213)   229     27        0 ( 844/ 627- 876/ 681)  76.0 E19-E17 S13-S09
     15  473  439 (S15E54 L=179)  2937    448       11 ( 370/ 343- 606/ 612) -78.7 E63-E48 S23-S03
     16  624  490 (S15E39 L=193)   996    258        4 ( 581/ 407- 689/ 572)  51.3 E43-E32 S21-S11
     17  542  518 (S12E44 L=189)   421     88        2 ( 513/ 487- 571/ 555)  38.7 E46-E41 S13-S09
     18  844  529 (S18E24 L=208)   216     51        1 ( 816/ 510- 869/ 546) -33.7 E25-E22 S19-S17
     19  369  413 (S15E67 L=166)  1590    126        6 ( 313/ 364- 414/ 449)   6.0 E77-E58 S18-S12
     20  772  285 (S32E42 L=191)   485    109        0 ( 720/ 266- 820/ 308) -38.7 E45-E37 S33-S29
  

    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