Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  402 1582 (N11E58 L=256)  2213    531        3 ( 350/1495- 468/1683) -40.6 E65-E49 N06-N18
      2  474 1628 (N15E54 L=260)   450    133        3 ( 447/1605- 509/1657) -14.0 E58-E50 N14-N17
      3  895 1408 (N11E17 L=297)   880    241        1 ( 820/1315- 962/1505) -29.7 E24-E10 N07-N15
      4  935 1224 (N02E10 L=304)   237     97        1 ( 894/1178- 972/1269)  68.2 E11-E08 S01-N04
      5  185 1129 (S19E61 L=253)  2231    555        3 (  86/1040- 357/1191)  26.6 E71-E46 S24-S12
      6  509 1023 (S19E31 L=283)  1036    324        3 ( 391/ 953- 632/1113)  -8.5 E41-E21 S22-S15
      7  816 1065 (S10E13 L=301)   291    101        0 ( 776/1035- 838/1111)  68.2 E14-E11 S12-S07
      8  262  970 (S27E50 L=264)  1566    427        4 ( 149/ 926- 372/1057)  27.8 E61-E41 S31-S20
      9  810  886 (S20E09 L=305)   410     86        1 ( 759/ 851- 851/ 912)  -8.1 E12-E05 S21-S18
     10 1329  856 (S08W22 L=335)   210     58        0 (1303/ 830-1349/ 885)  76.0 W20-W22 S10-S06
     11 1080  824 (S17W08 L=322)   221     91        0 (1029/ 790-1123/ 857)  -9.5 W05-W11 S17-S15
     12 1541  686 (S11W41 L=354)   763    202        1 (1484/ 614-1601/ 775)  80.5 W38-W43 S16-S04
     13  599  712 (S36E19 L=295)   251     57        1 ( 562/ 695- 633/ 732)   0.0 E22-E16 S36-S34
     14 1465  339 (S31W54 L=  8)  2571    553        4 (1293/ 289-1626/ 377)  19.0 W40-W69 S35-S25
  

    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