Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1545 1630 (N41W33 L=234)   458    134        0 (1491/1610-1591/1646)  26.6 W27-W37 N38-N43
      2  297 1553 (N21E62 L=139)   578    174        0 ( 282/1513- 316/1600) -45.0 E66-E58 N18-N25
      3 1151 1491 (N24W03 L=204)   221     56        0 (1120/1475-1185/1510)  14.0 W00-W04 N23-N25
      4  191 1332 (N07E66 L=135)   507     86        1 ( 163/1316- 216/1346)   0.0 E70-E62 N05-N07
      5  233 1143 (S05E57 L=145)   386     48        0 ( 210/1117- 254/1169)  45.0 E58-E54 S06-S03
      6 1180 1055 (S02W09 L=210)   311    130        0 (1111/1019-1240/1077)  -7.1 W04-W12 S03-S01
      7 1301  953 (S07W17 L=219)   282     91        2 (1274/ 921-1335/ 995) -63.4 W15-W19 S08-S04
      8 1744  908 (S03W49 L=251)   340     65        0 (1717/ 877-1766/ 928) -45.0 W46-W51 S04-S01
      9  867  861 (S17E08 L=194)   354    144        1 ( 835/ 798- 900/ 921)  69.4 E09-E06 S21-S13
     10 1433  860 (S10W27 L=228)   406     89        1 (1392/ 818-1469/ 908)  80.5 W24-W28 S12-S06
     11 1278  842 (S13W18 L=219)   363    164        1 (1182/ 828-1344/ 863)  11.3 W11-W21 S14-S11
     12  256  728 (S30E54 L=147)  1942    406        1 ( 207/ 602- 310/ 860)  50.9 E62-E47 S37-S21
     13  640  789 (S24E22 L=179)   313    122        0 ( 621/ 731- 657/ 848)  76.0 E23-E21 S27-S19
     14 1714  703 (S15W52 L=253)  2030    335        0 (1583/ 614-1837/ 796)  37.9 W43-W61 S21-S07
     15 1005  698 (S25W03 L=204)   596    176        0 ( 929/ 631-1095/ 734)  37.9 E01-W08 S30-S22
     16 1444  673 (S21W32 L=233)   596    158        1 (1377/ 621-1494/ 709) -16.7 W26-W36 S23-S19
     17 1200  635 (S27W16 L=218)   446    122        1 (1144/ 604-1266/ 669)  40.6 W12-W20 S29-S23
     18 1366  561 (S29W30 L=231)   794    200        0 (1293/ 523-1445/ 628)  -4.4 W22-W35 S31-S25
     19 1731  463 (S28W64 L=265)   986    151        2 (1701/ 433-1762/ 506)  78.7 W61-W66 S30-S25
     20 1366  306 (S46W42 L=244)   591    126        2 (1314/ 283-1426/ 330)  39.8 W37-W45 S48-S43
  

    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