Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1421 1579 (N31W31 L=168)  1106    242        0 (1327/1505-1503/1641) -45.0 W25-W35 N25-N35
      2  533 1586 (N36E35 L=102)   379     79        1 ( 494/1552- 563/1609) -23.2 E38-E31 N32-N37
      3  807 1526 (N30E12 L=124)   935    242        3 ( 728/1478- 918/1592) -29.7 E18-E04 N25-N34
      4  631 1385 (N21E24 L=113)   683    237        1 ( 581/1283- 689/1479) -55.3 E28-E19 N14-N27
      5 1769 1418 (N19W57 L=194)   505     90        2 (1739/1377-1801/1458) -59.0 W54-W59 N16-N21
      6  578 1308 (N17E27 L=110)   301    126        2 ( 544/1258- 605/1349) -80.5 E29-E25 N13-N19
      7  650 1187 (N09E22 L=115)   332    124        0 ( 621/1127- 670/1249)  74.1 E24-E20 N05-N12
      8 1602 1134 (N02W37 L=174)   481    157        0 (1552/1091-1668/1156)   7.1 W33-W41 N00-N03
      9 1750 1086 (S01W48 L=185)   618    175        0 (1694/1009-1771/1133) -50.2 W43-W50 S05-N01
     10 1633 1007 (S05W39 L=176)   347     88        0 (1587/ 970-1665/1040) -38.7 W35-W41 S07-S03
     11  242  973 (S01E54 L= 83)   754    101        2 ( 208/ 925- 275/1026) -51.3 E57-E50 S04-N02
     12  343  935 (S04E45 L= 92)   348     57        1 ( 313/ 907- 365/ 972) -90.0 E47-E43 S05-S02
     13  296  853 (S09E50 L= 87)  1909    321        5 ( 204/ 800- 427/ 933) -14.7 E58-E39 S11-S03
     14 1423  840 (S15W24 L=161)  1392    461        2 (1256/ 715-1541/ 911)  25.3 W13-W32 S21-S10
     15 1598  879 (S13W36 L=173)   623     97        3 (1561/ 830-1636/ 910) -26.6 W33-W39 S15-S11
     16 1612  721 (S23W39 L=176)   779    244        1 (1531/ 643-1680/ 818)  47.7 W33-W43 S27-S16
     17  319  710 (S17E52 L= 85)  1233    188        2 ( 260/ 648- 376/ 764) -32.0 E56-E47 S21-S13
     18  713  532 (S31E24 L=112)   466    138        0 ( 655/ 518- 795/ 548)   5.7 E28-E18 S32-S29
     19  509  398 (S39E48 L= 89)  1383    168        3 ( 457/ 316- 557/ 472)  25.5 E60-E39 S44-S34
     20  722  220 (S55E40 L= 96)   661     56        1 ( 692/ 195- 753/ 257)  66.8 E44-E36 S58-S51
     21  913  205 (S59E19 L=117)   650     60        0 ( 877/ 185- 954/ 226) -14.0 E24-E14 S60-S56
  

    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