Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1004 1565 (N35W13 L=132)   966    203        1 ( 911/1535-1106/1591) -24.8 W06-W19 N32-N38
      2 1633 1502 (N16W54 L=173)   661     63        2 (1595/1475-1667/1525) -31.0 W50-W57 N14-N17
      3 1329 1339 (N14W25 L=145)   353    138        0 (1262/1326-1394/1360) -14.0 W21-W29 N12-N15
      4  318 1267 (N32E45 L= 74)  1937    282        2 ( 226/1172- 425/1344) -35.5 E57-E35 N23-N38
      5  838 1228 (N18E06 L=113)  2104    586        1 ( 584/1143-1087/1329)  -7.1 E23-W09 N15-N21
      6  159 1169 (N29E65 L= 54)   725     81        1 ( 138/1137- 185/1208) -68.2 E69-E61 N26-N31
      7 1700  833 (S24W40 L=160)  1366    287        2 (1639/ 709-1750/ 960)  52.4 W34-W46 S30-S17
      8 1875  781 (S32W62 L=181)   718     80        1 (1838/ 757-1909/ 806)   5.2 W56-W68 S33-S30
      9 1402  707 (S24W16 L=136)   556    163        1 (1357/ 636-1439/ 784)  45.0 W12-W19 S27-S19
     10  542  564 (S14E41 L= 78)   521    147        0 ( 528/ 488- 556/ 627)  60.9 E44-E39 S18-S09
     11 1066  560 (S25E08 L=111)   308     67        1 (1035/ 531-1093/ 598)  36.9 E10-E05 S27-S23
     12  338  500 (S14E63 L= 56)   475     42        1 ( 324/ 472- 362/ 526)  31.0 E66-E60 S15-S12
     13  888  240 (S44E36 L= 83)   333     41        1 ( 861/ 225- 914/ 256) -11.3 E38-E33 S45-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