Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1343 1824 (N42W63 L=171)   475     52        0 (1331/1793-1355/1855)  21.8 W58-W69 N39-N43
      2  260 1297 (N41E54 L= 53)   733    120        1 ( 246/1231- 273/1361) -76.0 E57-E52 N37-N45
      3  493 1080 (N23E32 L= 76)   888    257        0 ( 403/ 993- 578/1150) -53.1 E38-E26 N16-N28
      4  220 1033 (N25E58 L= 49)   947    108        2 ( 170/1008- 268/1061)  -4.4 E65-E52 N23-N27
      5  267  976 (N21E53 L= 54)   630     76        3 ( 246/ 936- 286/1023)  68.2 E55-E50 N18-N23
      6 1626  967 (S14W34 L=142)   842    185        1 (1533/ 920-1698/1012)  -4.4 W27-W40 S15-S12
      7 1846  968 (S21W55 L=162)   838     95        1 (1816/ 920-1874/1008)  18.4 W50-W59 S23-S18
      8  244  917 (N18E57 L= 51)  1135    200        2 ( 194/ 836- 301/ 978) -63.4 E62-E51 N12-N22
      9 1359  609 (S27W08 L=116)   865    280        0 (1288/ 510-1409/ 738)  40.2 W01-W14 S31-S19
     10 1772  634 (S41W46 L=153)  1561    200        1 (1697/ 582-1848/ 717)   9.0 W36-W56 S42-S38
     11 1180  589 (S22E03 L=105)   996    365        0 (1039/ 494-1294/ 702)  16.7 E14-W06 S26-S18
     12  981  403 (S29E22 L= 86)   402    127        0 ( 952/ 347-1005/ 462)  41.2 E26-E17 S32-S25
     13  486  341 (S21E62 L= 45)   704     45        0 ( 463/ 315- 513/ 369)  10.3 E68-E57 S23-S19
  

    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