Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1076 1824 (N52W43 L=279)   519     74        0 (1053/1788-1098/1861)  37.9 W38-W47 N49-N56
      2 1374 1814 (N39W64 L=300)   634     62        2 (1344/1782-1395/1845)  14.0 W59-W71 N37-N40
      3  905 1750 (N54W22 L=258)   287     34        2 ( 888/1725- 921/1774)  31.0 W19-W24 N52-N56
      4 1630 1526 (N15W57 L=293)  2037    261        8 (1544/1417-1691/1614)  86.2 W52-W63 N07-N22
      5 1733 1530 (N12W68 L=304)   591     62        2 (1700/1510-1761/1555) -45.0 W65-W71 N09-N13
      6 1732 1472 (N09W63 L=299)   537     87        0 (1708/1440-1770/1505) -63.4 W60-W65 N05-N11
      7 1108 1399 (N25W16 L=252)   258     98        1 (1092/1346-1124/1444)  63.4 W14-W17 N21-N27
      8  697 1386 (N36E11 L=226)  1527    516        2 ( 476/1341- 936/1416) -24.3 E28-W03 N26-N40
      9 1480 1302 (N08W35 L=271)   281    103        0 (1429/1280-1514/1336)   0.0 W31-W37 N07-N09
     10  964 1152 (N15E00 L=236)  1347    641        2 ( 683/1067-1180/1210) -38.7 E15-W10 N04-N25
     11  573 1094 (N21E25 L=211)   729    227        1 ( 475/1064- 682/1119) -11.3 E32-E17 N19-N23
     12 1717 1017 (S14W43 L=279)   287     87        0 (1684/ 998-1746/1050)   0.0 W39-W45 S15-S12
     13  546  972 (N15E30 L=207)   564    218        0 ( 488/ 918- 636/ 996)  -5.7 E34-E23 N12-N16
     14 1893  861 (S31W61 L=298)  1256    116        2 (1849/ 827-1926/ 910)   8.7 W54-W68 S32-S28
     15  153  870 (N17E70 L=166)  1116    131        1 ( 104/ 823- 200/ 903) -17.4 E80-E64 N13-N18
     16 1403  725 (S21W14 L=250)   235    101        0 (1376/ 679-1433/ 763)  38.7 W11-W16 S23-S19
     17 1621  513 (S44W28 L=264)  2323    415        3 (1454/ 391-1736/ 649)  14.9 W10-W40 S47-S37
     18  608  375 (S21E48 L=188)   629    138        2 ( 586/ 310- 635/ 439)  51.3 E52-E44 S26-S16
     19 1352  334 (S48E00 L=236)   642     82        3 (1309/ 307-1394/ 359)  -8.1 E03-W04 S49-S45
     20 1063  171 (S51E34 L=202)  1036    166        2 ( 977/ 141-1131/ 201) -10.6 E45-E26 S53-S48
  

    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