Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1124 1610 (N35E10 L= 76)  1278    244        5 (1061/1507-1161/1696) -40.2 E18-E04 N28-N40
      2  277 1515 (N09E72 L= 15)   659     77        2 ( 262/1490- 305/1552) -15.9 E79-E65 N07-N11
      3  503 1475 (N11E45 L= 41)   593    135        0 ( 484/1417- 525/1539) -69.4 E47-E43 N06-N14
      4  746 1425 (N13E27 L= 60)   357    106        0 ( 702/1386- 785/1452) -15.9 E30-E23 N11-N14
      5 1033 1323 (N14E07 L= 80)   278     68        2 (1000/1292-1058/1352)  90.0 E08-E05 N12-N16
      6 1426 1235 (N19W19 L=105)  1039    230        1 (1365/1166-1484/1332)  69.0 W16-W21 N13-N26
      7 1868 1287 (N36W63 L=149)   976     94        0 (1831/1247-1893/1315) -31.0 W56-W69 N33-N38
      8 1680 1101 (N18W40 L=126)  1099    179        2 (1643/1006-1716/1175) -52.1 W35-W44 N12-N21
      9 1800 1088 (N21W52 L=138)   430    136        0 (1776/1033-1814/1149) -63.4 W48-W53 N16-N23
     10 1089 1123 (N04W01 L= 88)   275     88        0 (1049/1103-1129/1143)  36.9 E01-W03 N02-N05
     11 1801  926 (N11W55 L=141)   957    124        2 (1766/ 887-1836/ 966)  56.3 W51-W59 N08-N14
     12  352  779 (S34E42 L= 44)   849    184        3 ( 271/ 742- 423/ 830)  -3.6 E51-E35 S35-S31
     13  464  794 (S30E32 L= 55)   302     35        1 ( 436/ 773- 489/ 811)  11.3 E34-E29 S31-S28
     14 1557  619 (S13W45 L=132)   432    110        1 (1512/ 585-1584/ 666)  80.5 W43-W47 S15-S09
     15 1517  435 (S24W53 L=139)   590    155        1 (1474/ 380-1560/ 505) -73.3 W50-W54 S28-S18
  

    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