Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1400 1437 (N18W33 L=287)  1030    202        2 (1303/1383-1477/1493)   4.1 W24-W38 N16-N20
      2 1701 1417 (N10W55 L=309)  1934    463        2 (1568/1365-1832/1466)  -7.9 W41-W70 N05-N11
      3  993 1321 (N20W04 L=259)   744    226        1 ( 885/1293-1112/1352) -21.0 E01-W12 N18-N24
      4  470 1140 (N20E32 L=222)   356     54        2 ( 442/1106- 489/1167) -63.4 E34-E30 N17-N21
      5  337 1139 (N23E43 L=211)   843    211        2 ( 261/1110- 414/1159) -13.0 E49-E36 N20-N24
      6  607 1134 (N17E23 L=231)   225     67        0 ( 572/1119- 644/1145) -21.8 E25-E20 N15-N18
      7 1726  869 (S22W43 L=297)  2607    399        4 (1630/ 701-1778/1105)  57.5 W33-W50 S30-S08
      8  966  776 (S11E08 L=246)   195     67        0 ( 942/ 749-1005/ 791)  14.0 E09-E05 S11-S09
      9 1150  765 (S15W02 L=256)   210     41        1 (1125/ 745-1171/ 790)  33.7 W00-W03 S16-S13
     10  734  675 (S12E25 L=229)   287    111        0 ( 672/ 633- 772/ 711) -51.3 E28-E23 S14-S08
     11 1037  685 (S17E06 L=248)   303     88        0 ( 980/ 669-1085/ 706)   0.0 E10-E03 S18-S16
     12 1520  472 (S44W24 L=278)   720     77        1 (1484/ 440-1550/ 508) -33.7 W20-W26 S46-S41
     13  590  320 (S31E50 L=204)  1759    335        3 ( 546/ 247- 636/ 421)  42.7 E59-E44 S36-S24
     14 1337  332 (S50W06 L=260)   887    131        3 (1299/ 285-1367/ 383)  84.3 W01-W08 S55-S45
     15 1117  312 (S45E13 L=241)   415     86        2 (1079/ 287-1148/ 343)   9.5 E16-E10 S47-S42
  

    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