Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  817 1778 (N33E42 L=198)   596    110        1 ( 796/1734- 847/1828) -53.1 E44-E37 N29-N37
      2 1696 1609 (N56W39 L=279)   610     60        0 (1673/1577-1716/1635)  33.7 W33-W48 N51-N61
      3  828 1501 (N15E25 L=215)   778    207        0 ( 762/1412- 896/1561) -17.1 E31-E18 N10-N17
      4 1315 1184 (N10W12 L=251)   259     95        0 (1297/1138-1333/1226) -45.0 W09-W13 N08-N12
      5 1737 1131 (N21W42 L=282)   956    227        0 (1653/1046-1786/1186)  -4.4 W34-W47 N17-N23
      6  305 1094 (S20E49 L=190)   397     89        0 ( 273/1059- 338/1127)  45.0 E52-E46 S22-S17
      7  362  997 (S25E42 L=197)   500    175        1 ( 308/ 937- 420/1063)  51.3 E46-E38 S29-S19
      8  571  924 (S24E25 L=215)   420    105        2 ( 522/ 898- 627/ 952)  39.8 E27-E21 S26-S21
      9  386  835 (S34E38 L=202)   262     48        1 ( 358/ 810- 419/ 855)   0.0 E40-E34 S35-S33
     10  758  743 (S29E08 L=232)  1377    354        4 ( 609/ 685- 912/ 797)   5.4 E18-W03 S31-S27
     11 1271  603 (S22W28 L=268)   220     34        0 (1250/ 583-1291/ 623)  71.6 W26-W29 S23-S20
     12  445  444 (S61E34 L=206)   454     56        0 ( 422/ 415- 473/ 472) -31.0 E37-E29 S62-S58
     13 1429  386 (S28W51 L=291)   647    136        0 (1372/ 341-1481/ 425)  76.0 W49-W52 S32-S24
     14 1365  268 (S37W59 L=299)   414     26        0 (1341/ 251-1390/ 286)  56.3 W56-W61 S38-S35
  

    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