Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  393 1584 (N11E62 L=189)  2777    366        4 ( 305/1509- 463/1683) -81.3 147-E50 N08-S-2
      2  765 1580 (N19E33 L=218)   435    114        0 ( 751/1526- 787/1626) -66.8 E37-E29 N17-N22
      3  643 1507 (N12E37 L=214)   374     65        1 ( 605/1480- 666/1537)  78.7 E41-E35 N11-N13
      4 1185 1438 (N22E03 L=249)   854    165        1 (1151/1361-1223/1514) -48.8 E07-W02 N19-N26
      5  829 1437 (N12E23 L=228)   331     67        0 ( 793/1409- 869/1472)  68.2 E27-E20 N12-N14
      6  204 1235 (S13E64 L=187)  8661    908       17 ( 112/1084- 288/1426)  25.2 147-E51 S20-S-2
      7  739 1302 (N02E24 L=227)   478    175        2 ( 711/1243- 757/1359) -45.0 E27-E21 S00-N05
      8 1414 1286 (N20W16 L=267)   367    100        0 (1381/1247-1458/1306)  51.3 W13-W20 N19-N20
      9  639 1286 (S01E29 L=222)   536    114        1 ( 578/1257- 688/1304)   7.1 E34-E25 S01-S01
     10 1113 1208 (N07E00 L=251)   644    146        2 (1047/1146-1154/1252) -26.6 E05-W04 N05-N08
     11  435 1156 (S13E40 L=211)  2345    677        7 ( 318/1038- 569/1250)  47.0 E52-E27 S16-S10
     12  276 1210 (S13E55 L=196)   546     72        2 ( 255/1176- 305/1241) -76.0 E58-E51 S14-S12
     13  956 1127 (S02E06 L=245)   481    123        0 ( 908/1091-1016/1188)  -7.1 E11-E02 S02-N00
     14 1406 1124 (N10W19 L=270)   238     35        1 (1389/1100-1423/1151) -71.6 W17-W21 N10-N12
     15  609 1012 (S17E24 L=227)   831    233        3 ( 556/ 896- 641/1125) -65.2 E30-E20 S23-S12
     16 1849 1096 (N24W57 L=308)   414     51        1 (1834/1065-1867/1119)  76.0 W55-W60 N23-N25
     17  228 1027 (S25E57 L=194)   572    155        0 ( 186/1000- 270/1059)   5.7 E63-E52 S25-S23
     18  545  925 (S23E27 L=224)   867    176        3 ( 502/ 855- 586/ 984) -82.9 E31-E23 S27-S21
     19  876  940 (S14E06 L=245)   286     67        3 ( 840/ 902- 904/ 978) -36.9 E09-E03 S15-S13
     20  824  894 (S18E08 L=243)   227     48        1 ( 792/ 876- 851/ 911)  33.7 E10-E06 S18-S18
     21  786  794 (S25E08 L=243)   753    225        2 ( 666/ 735- 885/ 862)  -3.4 E17-W00 S25-S24
     22 1263  759 (S13W21 L=272)   513    110        0 (1203/ 707-1319/ 796)  63.4 W16-W26 S14-S13
     23  235  750 (S42E59 L=192)   673    124        1 ( 208/ 718- 268/ 780)  29.1 E62-E55 S43-S41
     24 1797  621 (S04W68 L=319)   715    162        0 (1766/ 593-1821/ 650)  63.4 W62-W74 S04-S03
     25 1609  542 (S14W54 L=305)   734    172        1 (1565/ 497-1635/ 609) -66.8 W46-W59 S16-S12
     26  613  563 (S44E15 L=236)   255     62        0 ( 594/ 530- 638/ 599) -38.7 E18-E12 S46-S42
     27  732  445 (S49E01 L=250)   276     46        0 ( 718/ 422- 750/ 473) -45.0 E03-W02 S50-S47
     28 1494  436 (S24W52 L=303)   320     87        0 (1469/ 418-1525/ 462)   0.0 W48-W56 S23-S23
     29 1056  360 (S43W29 L=280)  1873    326        3 ( 944/ 309-1186/ 447)  57.3 W16-W43 S42-S41
     30  888  361 (S49W17 L=269)   606    124        1 ( 849/ 314- 934/ 407) -12.1 W11-W25 S51-S47
  

    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